home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / sos6663d / postproc.pas < prev    next >
Pascal/Delphi Source File  |  1996-05-08  |  694b  |  30 lines
  1. program postproc;
  2. { This little Program cuts the Zeroed-Data from the end of the COM-File..
  3.   There are 708 bytes ZERODATA, it cuts 'em
  4.   Done by BLACK AXE from SoS in 1996  }
  5.  
  6. var buffer:pointer;
  7.     f,d:file;
  8.     size:word;
  9.  
  10. begin
  11.   writeln('POSTPROCESSOR by BLACK AXE from SoS (Seffer.ouni.Suen)');
  12.   writeln;
  13.   assign(f,'MINI3D.COM');
  14.   assign(d,'MINI3D.COM');
  15.   reset(f,1);
  16.   size:=filesize(f);
  17.   if size < 1000 then begin
  18.     writeln('Halting...');
  19.     writeln('Already processed!');
  20.     halt(1);
  21.   end;
  22.   getmem(buffer,2000);
  23.   blockread(f,buffer^,size);
  24.   close(f);
  25.   rewrite(d,1);
  26.   blockwrite(d,buffer^,size-708);
  27.   close(d);
  28.   freemem(buffer,2000);
  29. end.
  30.